Option Explicit
Sub O_Sample003()
    ThisWorkbook.VBProject.VBComponents("ThisWorkbook") _
        .Properties("_CodeName") = "Test"
End Sub